home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 9 / applic / address.bas next >
Encoding:
BASIC Source File  |  1986-04-17  |  2.1 KB  |  56 lines
  1. 10    FULLW 2:CLEARW 2:DIM ADD$(100,3)
  2. 15    IF PEEK(SYSTAB)=4 THEN SP=12 ELSE SP=28+14*(PEEK(SYSTAB)=1)
  3. 20    ON ERROR GOTO 450
  4. 30    OPEN "I",#1,"ADDRESS.DAT":FILES=1
  5. 40    FOR B=0 TO 3:INPUT #1,ADD$(FILES,B):NEXT
  6. 50    FILES=FILES+1:GOTO 40
  7. 60    CLOSE #1:CLEARW 2:FULLW 2
  8. 65    STYLE=1:GOSUB CHANGEFACE
  9. 70    GOTOXY SP+1,2:? "ADDRESS FILER"
  10. 75    STYLE=16:GOSUB CHANGEFACE
  11. 80    GOTOXY SP-5,4:? "Choose one of the following:"
  12. 85    GOSUB NORMAL
  13. 90    GOTOXY SP,7:? "1. Add a name"
  14. 100   IF FILES=0 THEN GOSUB ITALICS
  15. 110   GOTOXY SP,9:? "2. Delete a name"
  16. 120   GOTOXY SP,11:? "3. Find a name"
  17. 130   GOSUB NORMAL
  18. 140   GOTOXY SP,13:? "4. Exit"
  19. 150   A$=CHR$(INP(2)):IF A$<"1" OR A$>"4" THEN 150
  20. 160   IF FILES=0 AND (A$="2" OR A$="3") THEN 150
  21. 170   ON VAL(A$) GOSUB 180,350,280,390:GOTO 60
  22. 180   FILES=FILES+1:M=1:GOSUB 190:RETURN
  23. 190   FS=FILES
  24. 200   CLEARW 2:GOTOXY SP,3:? "Name: ";:N=0:GOSUB 250
  25. 210   GOTOXY SP-9,5:? "Street Address: ";:N=1:GOSUB 250
  26. 220   GOTOXY SP-5,7:? "City State: ";:N=2:GOSUB 250
  27. 230   GOTOXY SP-7,9:? "Phone Number: ";:N=3:GOSUB 250
  28. 240   RETURN
  29. 250   IF M=1 THEN LINE INPUT ADD$(FS,N) ELSE ? ADD$(FS,N)
  30. 260   RETURN
  31. 270   GETNAME:CLEARW 2:GOTOXY SP,3:LINE INPUT "Name:";NA$:RETURN
  32. 280   GOSUB FINDNAME
  33. 290   IF F1 THEN FS=F1:M=0:GOSUB 200:GOSUB GETKEY:RETURN
  34. 300   NOTFOUND: GOTOXY SP,9:? "Name Not Found"
  35. 310   GETKEY: GOTOXY 20,15:? "Press Any Key To Continue.....":A=INP(2):RETURN
  36. 320   FINDNAME: GOSUB GETNAME:F1=0:FOR A=1 TO FILES
  37. 330   IF ADD$(A,0)=NA$ THEN F1=A
  38. 340   NEXT:RETURN
  39. 350   GOSUB FINDNAME:IF F1=0 THEN GOTO NOTFOUND
  40. 360   IF F1=FILES THEN 380
  41. 370   FOR A=F1 TO FILES-1:FOR B=0 TO 3:ADD$(A,B)=ADD$(A+1,B):NEXT B,A
  42. 380   FILES=FILES-1:RETURN
  43. 390   IF FILES=0 THEN 440
  44. 400   OPEN "O",#1,"ADDRESS.DAT"
  45. 410   FOR A=1 TO FILES:FOR B=0 TO 3
  46. 420   ? #1,ADD$(A,B)
  47. 430   NEXT:NEXT
  48. 440   CLEARW 2:CLOSE #1:END
  49. 450   IF ERR=53 OR ERR=62 THEN RESUME 60
  50. 460   ? "Error number ";ERR;"at line ";ERL:END
  51. 470   ITALICS: STYLE=6:GOTO CHANGEFACE
  52. 480   NORMAL: STYLE=0
  53. 490   CHANGEFACE: POKE CONTRL,106:POKE CONTRL+2,0
  54. 500   POKE CONTRL+6,1:POKE INTIN,STYLE
  55. 510   VDISYS(0):RETURN
  56. ə2)>=40